home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
GSCCMP.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
523b
|
23 lines
SUBROUTINE GSCCMP(IX,IY,XOFF,YOFF,X,Y)
IMPLICIT NONE
REAL*4 XOFF,YOFF,X,Y,XS,YS
INTEGER IX,IY
C
C
INCLUDE DIGLIB$KOM:GCCPAR.PRM
INCLUDE DIGLIB$KOM:GCCPOS.PRM
C
C SCALE TO PROPER SIZE
C
XS = CSIZE*IX
YS = CSIZE*IY
C
C ROTATE AND TRANSLATE
C
X = CCOS*XS + CSIN*YS + XOFF
Y = CCOS*YS - CSIN*XS + YOFF
D WRITE(9,9999) IX, IY, X,Y
D9999 FORMAT(' CMOVE TO (',I2,',',I2,') GOES TO (',F9.4,',',F9.4,')')
RETURN
END